﻿Public Class BETelaEvento

    Private _strIdEvento As String
    Private _strNome As String
    Private _intOrdem As Integer
    Private _strConteudo As String
    Private _intIdTela As String
    Private _booMostra As Boolean

    Sub New(ByVal strNome As String, ByVal intOrdem As Integer, ByVal strConteudo As String, ByVal booMostra As Boolean)

        _strNome = strNome
        _intOrdem = intOrdem
        _strConteudo = strConteudo
        _booMostra = booMostra
    End Sub

    Sub New()
        _strNome = ""
        _intOrdem = 0
        _strConteudo = ""
        _intIdTela = ""
        _strIdEvento = ""
        _booMostra = 0
    End Sub

    Public Property IdEvento() As String
        Get
            Return _strIdEvento
        End Get
        Set(ByVal value As String)
            _strIdEvento = value
        End Set
    End Property

    Public Property Mostra() As Boolean
        Get
            Return _booMostra
        End Get
        Set(ByVal value As Boolean)
            _booMostra = value
        End Set
    End Property

    Public Property IdTela() As String
        Get
            Return _intIdTela
        End Get
        Set(ByVal value As String)
            _intIdTela = value
        End Set
    End Property

    Public Property Nome() As String
        Get
            Return _strNome
        End Get
        Set(ByVal value As String)
            _strNome = value
        End Set
    End Property

    Public Property Ordem() As Int16
        Get
            Return _intOrdem
        End Get
        Set(ByVal value As Int16)
            _intOrdem = value
        End Set
    End Property

    Public Property Conteudo() As String
        Get
            Return _strConteudo
        End Get
        Set(ByVal value As String)
            _strConteudo = value
        End Set
    End Property

End Class
